home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a06.bas < prev    next >
BASIC Source File  |  1993-11-30  |  4KB  |  111 lines
  1. 1000 'A06.BAS**************************************************T.K.MOSAKU
  2. 1010 SCREEN@ 0:WINDOW(0,0)-(640,480):CLS
  3. 1020 SX=50:SY=50:XS=590:YS=430:J=4:XSX=(XS-SX)/2+SX
  4. 1030 '
  5. 1040 GOSUB *WAKU
  6. 1050 A$="☆☆☆ LINE命令で直線を書き重ねています｡ ☆☆☆"
  7. 1060 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME:S=0
  8. 1070   FOR I=1 TO 124 
  9. 1080     LINE (SX+3*J,YS-3*J)-(SX+3*J+I*4,SY+3*J),PSET,(I-2)/3 MOD 7+1
  10. 1090     LINE (XS-3*J,SY+3*J)-(XS-3*J-I*4,YS-3*J),PSET,(I-2)/3 MOD 7+1
  11. 1100     S=S+1
  12. 1110   NEXT
  13. 1120 T2=TIME:T=T2-T1:S=2*S
  14. 1130 LOCATE 3,1:PRINT"書くのに要した時間--";T;"秒  ";"描いた直線--";S;"本"
  15. 1140 WAIT 100:CLS 4
  16. 1150 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME
  17. 1160   FOR I=1 TO 124 
  18. 1170     LINE (SX+3*J,YS-3*J)-(SX+3*J+I*4,SY+3*J),PSET,0
  19. 1180     LINE (XS-3*J,SY+3*J)-(XS-3*J-I*4,YS-3*J),PSET,0
  20. 1190   NEXT
  21. 1200 T2=TIME:T=T2-T1:LOCATE 3,1:PRINT "消し終わるまでの時間  ";T;"秒"
  22. 1210 WAIT 70:CLS 4
  23. 1220 '
  24. 1230 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME:S=0
  25. 1240   FOR I=1 TO 84
  26. 1250     LINE (SX+3*J,SY+3*J)-(XS-3*J,SY+3*J+I*4),PSET,(I-2)/3 MOD 7+1
  27. 1260     LINE (XS-3*J,YS-3*J)-(SX+3*J,YS-3*J-I*4),PSET,(I-2)/3 MOD 7+1
  28. 1270     S=S+1
  29. 1280   NEXT
  30. 1290 T2=TIME:T=T2-T1:S=2*S
  31. 1300 LOCATE 3,1:PRINT"書くのに要した時間--";T;"秒  ";"描いた直線--";S;"本"
  32. 1310 WAIT 100:CLS 4
  33. 1320 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME
  34. 1330   FOR I=1 TO 84
  35. 1340     LINE (SX+3*J,SY+3*J)-(XS-3*J,SY+3*J+I*4),PSET,0
  36. 1350     LINE (XS-3*J,YS-3*J)-(SX+3*J,YS-3*J-I*4),PSET,0
  37. 1360   NEXT
  38. 1370 T2=TIME:T=T2-T1:LOCATE 3,1:PRINT "消し終わるまでの時間  ";T;"秒"
  39. 1380 WAIT 70:CLS 4
  40. 1390 '
  41. 1400 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME:S=0
  42. 1410   FOR I=1 TO 67
  43. 1420     LINE (XSX,YS-3*J+1)-(SX+3*J,YS-3*J-I*5+1),PSET,(I-2)/3 MOD 7+1
  44. 1430     S=S+1
  45. 1440   NEXT
  46. 1450   FOR I=1 TO 124
  47. 1460     LINE (XSX,YS-3*J+1)-(SX+3*J+I*4,  SY+3*J),PSET,(I-2)/3 MOD 7+1
  48. 1470     S=S+1
  49. 1480   NEXT 
  50. 1490   FOR I=1 TO 67
  51. 1500     LINE (XSX,YS-3*J+2)-(XS-3*J,  SY+3*J+5*I),PSET,(I-2)/3 MOD 7+1
  52. 1510     S=S+1
  53. 1520   NEXT
  54. 1530 T2=TIME:T=T2-T1
  55. 1540 LOCATE 3,1:PRINT"書くのに要した時間--";T;"秒  ";"描いた直線--";S;"本"
  56. 1550 WAIT 100:CLS 4
  57. 1560 '
  58. 1570 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME
  59. 1580   FOR I=1 TO 67
  60. 1590     LINE (XSX,YS-3*J+1)-(SX+3*J,YS-3*J-I*5+1),PSET,0
  61. 1600   NEXT
  62. 1610   FOR I=1 TO 124
  63. 1620     LINE (XSX,YS-3*J+1)-(SX+3*J+I*4,  SY+3*J),PSET,0
  64. 1630   NEXT 
  65. 1640   FOR I=1 TO 67
  66. 1650     LINE (XSX,YS-3*J+2)-(XS-3*J,  SY+3*J+5*I),PSET,0
  67. 1660   NEXT
  68. 1670 T2=TIME:T=T2-T1:LOCATE 3,1:PRINT "消し終わるまでの時間  ";T;"秒"
  69. 1680 WAIT 70:CLS 4
  70. 1690 '
  71. 1700 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME:S=0
  72. 1710   FOR I=1 TO 67
  73. 1720     LINE (XSX,SY+3*J+1)-(SX+3*J,  SY+2*J+I*5),PSET,(I-2)/3 MOD 7+1
  74. 1730     S=S+1
  75. 1740   NEXT 
  76. 1750   FOR I=1 TO 124
  77. 1760     LINE (XSX,SY+3*J+1)-(SX+3*J+I*4,YS-3*J+1),PSET,(I-2)/3 MOD 7+1
  78. 1770     S=S+1
  79. 1780   NEXT
  80. 1790   FOR I=1 TO 67
  81. 1800     LINE (XSX,SY+3*J+1)-(XS-3*J,  YS-3*J-5*I),PSET,(I-2)/3 MOD 7+1
  82. 1810     S=S+1
  83. 1820   NEXT I
  84. 1830 T2=TIME:T=T2-T1
  85. 1840 LOCATE 3,1:PRINT"書くのに要した時間--";T;"秒  ";"描いた直線--";S;"本"
  86. 1850 WAIT 100:CLS 4
  87. 1860 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME
  88. 1870   FOR I=1 TO 67
  89. 1880     LINE (XSX,SY+3*J+1)-(SX+3*J,  SY+2*J+I*5),PSET,0
  90. 1890   NEXT 
  91. 1900   FOR I=1 TO 124
  92. 1910     LINE (XSX,SY+3*J+1)-(SX+3*J+I*4,YS-3*J+1),PSET,0
  93. 1920   NEXT
  94. 1930   FOR I=1 TO 67
  95. 1940     LINE (XSX,SY+3*J+1)-(XS-3*J,  YS-3*J-5*I),PSET,0
  96. 1950   NEXT I
  97. 1960 T2=TIME:T=T2-T1:LOCATE 3,1:PRINT "消し終わるまでの時間  ";T;"秒"
  98. 1970 WAIT 70:CLS 4
  99. 1980 GOTO 2090
  100. 1990 '
  101. 2000 *WAKU
  102. 2010  C(0)=7:C(1)=7:C(2)=1:C(3)=5:C(4)=5
  103. 2020  FOR I=0 TO J
  104. 2030    LINE (SX,SY)-(XS,YS),PSET,C(I),B
  105. 2040    SX=SX+2:SY=SY+2:XS=XS-2:YS=YS-2
  106. 2050  NEXT
  107. 2060  LINE (SX+2*J,SY+2*J)-(XS-2*J,YS-2*J),PSET,5,B
  108. 2070  I=1
  109. 2080 RETURN
  110. 2090 '
  111.